home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gold Medal Software 2
/
Gold Medal Software Volume 2 (Gold Medal) (1994).iso
/
prog
/
hcn305.arj
/
TUTOR10.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-04-21
|
679b
|
26 lines
program Tutor10;
{$N+,E+} {Required for floating point number handling}
uses
CRT,
GSOB_DTE,
GSOB_DBF,
GSOB_VAR;
var
MyFile : GSO_dBaseFld;
begin
ClrScr;
SetCentury(On); {Displays 4-character year (e.g., 1992)}
MyFile.Init('TUTOR1');
MyFile.Open;
MyFile.GetRec(Top_Record);
while not MyFile.File_EOF do
begin
writeln(MyFile.DelFlag:6,' ',MyFile.RecNumber:4,' ',
MyFile.DateGet('BIRTHDATE'):10,' ',
MyFile.StringGet('BIRTHDATE'),' ',
GS_Date_View(MyFile.DateGet('BIRTHDATE')+90));
MyFile.GetRec(Next_Record);
end;
MyFile.Close;
end.